home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / mdboutln.zip / AEEMP.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-12  |  1KB  |  53 lines

  1. unit Aeemp;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, Buttons, Dialogs;
  8.  
  9. type
  10.   TfrmAEEmployee = class(TForm)
  11.     bxscrlAEEmployee: TScrollBox;
  12.     lblEmpNo: TLabel;
  13.     lblLastName: TLabel;
  14.     bxeddbLastName: TDBEdit;
  15.     lblFirstName: TLabel;
  16.     bxeddbFirstName: TDBEdit;
  17.     lblPhoneExt: TLabel;
  18.     bxeddbPhoneExt: TDBEdit;
  19.     lblHireDate: TLabel;
  20.     bxeddbHireDate: TDBEdit;
  21.     lblSalary: TLabel;
  22.     bxeddbSalary: TDBEdit;
  23.     lblSupervisor: TLabel;
  24.     bxeddbSupervisor: TDBEdit;
  25.     dtasrcAEEmployee: TDataSource;
  26.     pnlAEEmployee: TPanel;
  27.     btnbitOK: TBitBtn;
  28.     btnbitCancel: TBitBtn;
  29.     bxeddbEmpNo: TDBEdit;
  30.     procedure FormActivate(Sender: TObject);
  31.  
  32.   private
  33.     { private declarations }
  34.   public
  35.     { public declarations }
  36.   end;
  37.  
  38. var
  39.   frmAEEmployee: TfrmAEEmployee;
  40.  
  41. implementation
  42. uses Main;
  43.  
  44. {$R *.DFM}
  45.  
  46. procedure TfrmAEEmployee.FormActivate(Sender: TObject);
  47. begin
  48.   dtasrcAEEmployee.DataSet := frmMainForm.tblEmployees;
  49.   bxeddbLastName.SetFocus;
  50. end;
  51.  
  52. end.
  53.